home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / [BreakoutD187349472005.psc / frmDX.frm < prev   
Text File  |  2005-04-06  |  2KB  |  100 lines
  1. VERSION 5.00
  2. Begin VB.Form frmDX 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Form2"
  6.    ClientHeight    =   4365
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   5685
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   4365
  12.    ScaleWidth      =   5685
  13.    ShowInTaskbar   =   0   'False
  14.    StartUpPosition =   3  'Windows Default
  15. End
  16. Attribute VB_Name = "frmDX"
  17. Attribute VB_GlobalNameSpace = False
  18. Attribute VB_Creatable = False
  19. Attribute VB_PredeclaredId = True
  20. Attribute VB_Exposed = False
  21. '---------------------------------------------------------------------------------------
  22. ' Module    : frmDX
  23. ' DateTime  : 4/2/2005 12:26
  24. ' Author    : Jason
  25. ' Purpose   : A plain form for DX handle and mouse events
  26. '---------------------------------------------------------------------------------------
  27.  
  28. Option Explicit
  29.  
  30. Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
  31.  
  32. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  33.  
  34.    If KeyCode = vbKeyEscape Then
  35.       bRunning = False
  36.       EndIt
  37.    End If
  38.    
  39.    If KeyCode = vbKeyF Then
  40.       bFPS = Not (bFPS)
  41.    End If
  42.       
  43. End Sub
  44.  
  45. Private Sub Form_Load()
  46.  
  47.    Me.Top = 0
  48.    Me.Left = 0
  49.    Me.Width = DX_WIDTH * Screen.TwipsPerPixelX
  50.    Me.Height = DX_HEIGHT * Screen.TwipsPerPixelX
  51.    Me.ScaleMode = vbPixels
  52.    KeyPreview = True
  53.    ShowCursor 0
  54.    
  55. End Sub
  56.  
  57. Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  58.  
  59.    DrawingMenu = False
  60.    
  61.    If DrawingMeter = False Then
  62.       PaddleReceive = True
  63.    End If
  64.    
  65. End Sub
  66.  
  67. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  68.  
  69.  
  70.    PaddleA.X = X
  71.    If PaddleA.X + PADDLE_WIDTH > BACK_WIDTH + BACK_OFFSET Then
  72.       PaddleA.X = BACK_WIDTH + BACK_OFFSET - PADDLE_WIDTH
  73.    End If
  74.    
  75.    If PaddleA.X < 0 + BACK_OFFSET Then
  76.       PaddleA.X = BACK_OFFSET
  77.    End If
  78.    
  79. End Sub
  80.  
  81. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  82.  
  83.    'DrawingMenu = False
  84.    
  85.    If BallStick = True Then
  86.       BallStick = False
  87.       FireStraightUp = True
  88.       PaddleReceive = False
  89.       DrawingMeter = True
  90.       PlayPaddleSound
  91.    End If
  92.    
  93. End Sub
  94.  
  95. Private Sub Form_Unload(Cancel As Integer)
  96.  
  97.    ShowCursor 1
  98.    
  99. End Sub
  100.